STRCNV.LSP[UCI,SYS] - www.SailDart.org

perm filename STRCNV.LSP[UCI,SYS] blob sn#032199 filedate 1973-07-03 generic text, type T, neo UTF8

(DSKIN(UTIL.LAP))

((LAMBDA NIL
  (DRM ' (LAMBDA NIL (LIST (QUOTE QUOTE) (READ))))
  (MODCHR (CHRVAL (QUOTE /")) (MODCHR 101 NIL))
  (PUTPROP (QUOTE VALUE) (GET (QUOTE EVAL) (QUOTE LSUBR)) (QUOTE LSUBR))))

(DSKIN(CNVR.LAP]
(PUTPROP 'CDE(GET 'CDEFUN 'FSUBR) 'FSUBR]
(SETQ KLIST NIL)
(INITPROMPT 76)
(INITFN 'CNVINT)